home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / boot / codepw 2.1 / english / delete codepw 2.1 < prev    next >
Encoding:
Text File  |  1997-11-23  |  902 b   |  43 lines
  1. ; codePW 2.1 delete by Jürgen Einrauch 01. November 1997      
  2. failat 21
  3.  
  4. echo "  *n*e[32m  ___________________________________________________*e[0m"
  5. echo "  *e[43m                                                   *e[0m"
  6. echo "  *e[28;43m       Version 2.1             delete codePW       *e[0m"
  7. echo "  *e[43m___________________________________________________*e[0m*n"
  8.  
  9. IF NOT EXISTS SYS:S/codePW
  10. echo "*n   File codePW not found."
  11. echo "   Delete aborted."
  12. WAIT 2 secs
  13. EndCLI >NIL:
  14. quit
  15. ELSE
  16. echo noline "*n   Would you delete codePW now? (yes/no): "
  17. set > nil: in ?
  18. IF $in eq "ja"
  19.   skip start
  20. endif
  21. IF $in eq "j"
  22.   skip start
  23. endif
  24. IF $in eq "y"
  25.   skip start
  26. endif
  27. IF $in eq "yes"
  28.   skip start
  29. endif
  30. echo noline "*n   Delete aborted."
  31. EndCLI >NIL:
  32. quit
  33. endif
  34.  
  35. lab start
  36. echo "*n   Delete codePW now."
  37. echo "   Please wait 2 seconds ....."
  38. delete >nil: s:codePW
  39. endif
  40. WAIT 2 secs
  41. EndCLI >NIL:
  42. quit
  43.